#!/usr/bin/perl -w

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

my $np_new = 'usr/castle/np_new/'
my $temp = 'usr/castle/pctemp'

system("clear");

system("mount /dev/cd0 /mnt");
system("cp /mnt/* $temp/.");
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, "\t" x 3, "Input required: ";

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