0: #!/usr/bin/perl
1: #rembak.pl
2: #it is useless, but i like Perl to do things for me (-:
3: 
4: use Getopt::Long;
5: 
6: my $verbose_mode = '';
7: GetOptions('verbose' => \$verbose_mode);
8: 
9: $dirname = `pwd`;
10: chomp $dirname;
11: 
12: $counter = 0;
13: open(SIN, "ls *~|") or die "Unable to read list of files!\n";
14: 	while(<SIN>){
15: 		chomp;
16: 		system("rm -f $_");
17: 		if ($verbose_mode) { print "\t$_ deleted.\n"; }
18: 		$counter++;
19: 	}
20: close SIN;
21: print "I have deleted $counter backup files in directory $dirname.\n"