Your code won't display symbolic links properly because you are using stat instead of lstat.

Just change:

    next unless -e $file;
    my ( $mode, $nlink, $uid, $gid, $size, $mtime )
        = ( stat(_) )[ 2 .. 5, 7, 9 ];
[download]

To:

    my ( $mode, $nlink, $uid, $gid, $size, $mtime )
        = ( lstat $file )[ 2 .. 5, 7, 9 ]
            or next;
[download]