use strict; system( "cp /analysis/fasta1.fa /analysis2/fasta1.fa" ) or die print "Can't copy fasta file: $! \n";