use strict; &doSystemCommand( "cp /analysis/fasta1.fa /analysis2/fasta1.fa" ); sub doSystemCommand { my $systemCommand = $_[0]; print LOG "$0: Executing [$systemCommand] \n"; my $returnCode = system( $systemCommand ); if ( $returnCode != 0 ) { die "Failed executing [$systemCommand]\n"; } }