Select Code to Download

#!/usr/bin/perl -l

...
        ->in(@files);
        print $file . MagicFile $file;
}