Perl - [ SCRIPT TO BACKUP ]

 backup.pl
------------------------------------------------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use warnings;

my $path = shift or die $!;

my $dir_out = 'backup_Perl';

`mkdir $dir_out`    unless (-e "$dir_out");

print `find $path -name "*.pl" > tmp_path_backup`;

open (IN,"tmp_path_backup") or die $!;

while(<IN>){
    chomp;
    print `cp $_ $dir_out/`;
}

close(IN);

print `rm tmp_path_backup`;

------------------------------------------------------------------------------------------------------------

$perl backup.pl projects/
-bash-4.0$ ls
Área de trabalho  backup_Perl  backup.pl  Documentos  Downloads  igv  Imagens  Modelos  Música  projects  Público   Vídeos


-bash-4.0$ ls backup_Perl/
annotCDS.pl       convert_1.pl             createTable_new.pl                format_refGeneCDS.pl  getInterestGene.pl  insert_dbSNP.pl             qualitySam.pl          samStatus.pl          tmp.pl
annotSomatic.pl   convert_2.pl             createTable.pl                    frequency.pl          grepCount.pl        insertFall.pl               rand_change2.pl        samTOcsfasta.pl       troca.pl
bamTopileup.pl    countAlleleDefth.pl      create_Triplet.pl                 function_IUPAC.pl     grepTable4.pl       merge_col_HmmMergeDBsnp.pl  rand_change.pl         select_dbSNP.pl       tryTochange.pl
computerFile.pl   countTabla4_1.pl         dif.pl                            geneArray.pl          gretable4.3.pl      merge.pl                    rank_BIOSCOPE_conv.pl  separa.pl
computerIntro.pl  createTable_CDSannot.pl  fasta2stockholm_userHMMSERACH.pl  getFTP.pl             HmmMergeDBsnp.pl    pileupCVR.pl                recorverName.pl        sort_Merge.pl
computer.pl       createTableIndel.pl      formaTOdb.pl                      getInfo.pl            hmm_parser.pl       pipeline.pl                 recover.pl             TESTEannotSomatic.pl