sub my_system
{
    system($_[0]) || die "$_[0] failed : $!";
}
eval {
    my_system( "cp xyz.dat abc.dat" );
    my_system("cp xyz.dat2 abc.dat2");
}
if ($@)
{
    print "Error occured : $@\n"
}