FILE::copy gives error undefined subroutine

[Sonika Sachdeva]

Hi All,

I have used FILE::copy , perl syntax check is OK.
and am getting the following error when it tries to perform the copy
function . This is on windows system.

<code snippet>

my $retval=system("perl \"$SCRIPTDIR\\test.pl\" $FILEHASH{$filename}[3]") ;
  if($retval != 0) {
   print LOGHANDLE "Error while executing Perl script :",$retval,"\n";
   $FILEHASH{$filename}[0]=1;
   }
  else {
   print LOGHANDLE "Success :",$FILEHASH{$filename}[3],"\n";
   $FILEHASH{$filename}[0]=0;
   if ( $FILEHASH{$filename}[3] =~ /.*NTSC.*/i ) {copy (
"$SRCDIR\\$FILEHASH{$filename}[3]" , "$SMBMOUNTNTSC" ) or warn "copy error:
$!\n" ;}
   elsif ($FILEHASH{$filename}[3] =~ /.*PAL.*/i ){ copy (
"$SRCDIR\\$FILEHASH{$filename}[3]" , "$SMBMOUNTPAL" ) or warn "copy error:
$!\n" ;}
  }

<end code snippet>

<error:>
undefined subroutine &main::copy

What could be the mistake?

Thanks,