Select Code to Download

#!/usr/bin/perl

...
        scalar @found, $nlinks, $inode, $path );
print join( "\n", @found ), "\n";