#!/usr/bin/perl
use strict;
use warnings;


my $file=$ARGV[0];
chomp $file;
if (-f $file) {
  my $gzFile=$file.".gz";
  if (-f $gzFile) {
    logThis($gzFile);
  } else {
    $gzFile =~ s/WAV.gz/wav.gz/;
    if (-f $gzFile) {
      logThis($gzFile);
    }
  }
}

sub logThis {
  my $gzf=shift;
  open my $OF, '>>', '/tmp/rmwavs.sh' or die $!;
  printf $OF "/bin/rm %s\n", $file;
  close $OF;
}