#! /usr/bin/perl -w

use strict;

use Getopt::Long;  
my $verbose_mode = '';      

GetOptions('verbose' => \$verbose_mode);      

my $counter = 0;
opendir DIR, '.' or die "Cannot open . for directory input: $!\n"; 
while( defined( my $entry = readdir(DIR) )) {
  next unless $entry =~ /~$/;
  if( unlink $_ ) {
    ++$counter;
    print "\t$_ deleted.\n" if $verbose_mode;                  
  }
  else {
    warn "Could not unlink $_: $!\n";              
  }
}
closedir DIR;

print "I have deleted $counter backup files in current directory.\n"