my $result = system("copy bleh blah");
#system returns opposite ... IIRC

if(! $result)
{
   print "success\n";
}
else 
{
   print "oh no!\n";
}