use strict;
my $filename = "myDatabaseName.mdb";
open(FILEOPENED, $filename)  || die "Can't open file: $filename \n";
while ($line = <FILEOPENED>)
{
  print "$line \n";
  my $cmd = "copy H:currdir\\$line \\\infoserver\\destinationDir";       
  print "$cmd\n";
  my $result = system($cmd);
  if ($result) 
  {
    warn qq(Couldn't execute "$cmd"!\n);
    next;
  }
}
close(FILEOPENED);