eval {
    system("cp xyz.dat abc.dat");
    die "$?\n" if ($?);
    system("cp xyz.dat2 abc.dat2");
    die "$?\n" if ($?);
    };
if ($@) {
    print "Error occured: $@\n";
}