find(\&unzipfiles, $ARGV[0]);


##</code><code>##

find(\&unzipfiles($var), $ARGV[0]);