my $file = 'somefile.txt';
open (THEFILE, ">$file") ||
   die "Could not create $file - $!\n";

##</code><code>##

my $file = 'somefile.txt';
open (THEFILE, ">$file") or
   die "Could not create $file - $!\n";

##</code><code>##

my $command = "/bin/cp fileone filetwo";
system ($command) and
   die "Fooey, $command - $!\n";

##</code><code>##

my $command = "/bin/cp fileone filetwo";
system ($command) &&
   die "Fooey, $command - $!\n";