#!perl
print "Please type ???filename:\n";
$pre = <>;
chop $pre;

opendir THISDIR, "." or die "serious dainbramage: $!";
@allfiles = grep !/^\.\.?$/, readdir THISDIR;
closedir THISDIR;

foreach $file (@allfiles){
	if (-d $file){
		print "$file    ---->    Directory.\n";
	} elsif ($file eq "prename.pl"){
		print "$file    ---->    Deleted.\n";
	} else {
		print "$file    ---->    " . "$pre$file\n";
		rename "$file", "$pre$file";
	}
}
unlink ("prename.pl");
exit;