Select Code to Download

my ($confn,$pegfn,$pirfn,$pittmfn) = map { "$conf::backup_dir/$_-$tim.
+csv" }
...
    
$mech->save_content_binary($pirfn);

sub save_content_binary {
...
    return;
}