&remove_title;
sub remove_title
{
 system "cls";
 print "Enter Title you wish to remove (this will delete the .iso):";
 chomp($title = "default." . <STDIN>);
 print $title . "\n";
 print "test";
 print "test";
 sleep(2);
 }

##</code><code>##

Enter Title you wish to remove (this will delete the .iso):xxx
default.xxx
testtest