#!/usr/bin/perl
#rembak.pl
#it is useless, but i like Perl to do things for me (-:

use Getopt::Long;

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

$dirname = `pwd`;
chomp $dirname;

$counter = 0;
open(SIN, "ls *~|") or die "Unable to read list of files!\n";
	while(<SIN>){
		chomp;
		system("rm -f $_");
		if ($verbose_mode) { print "\t$_ deleted.\n"; }
		$counter++;
	}
close SIN;
print "I have deleted $counter backup files in directory $dirname.\n"