Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
        rename $log, "archive/$log"; ## move the file
    }
}