#!/usr/bin/perl

print "Are you sure you want to uninstall pdump *gasp* [y/N]: ";
chomp($ans = <STDIN>);
if ($ans =~ /^y(es)?$/i) {
 print "Path to pdump [/usr/bin]: ";
 chomp($path = <STDIN>);
 unlink("$path/pdump.pl", "$path/pdump");
 die "pdump uninstalled.";
}
else {
 die "Nothing uninstalled.\n";
}