use strict;
use File::Copy;
use warning;

system("clear");

system("mount /dev/cd0 /mnt");
system("cp /mnt/* /usr/castle/pctemp/.");
system("umount /mnt");

my %dest = 
    (SO_PC => 'PCMAP.BIN',
     MS_PC => 'FULLPC.BIN',
     SO_CV => 'CVFULLPC.BIN',
     MS_MC => 'MBFULLPC.BIN');

print "\n" x 5, "Input required:\n";

my $fileName = <STDIN>;
chomp $fileName;
for my $search (keys %dest)
{
   die "$fileName does not exist!" unless -e $fileName;
   copy ($fileName, '/usr/castle/np_new/'.$dest{$search}) if $fileName =~ /\Q$search/i;
}