print $file =~ m/(tgz|tar\.gz)$/i ? qq#<li>$file <a href="$self/ut?tar=$file">unpack</a></li># :
"<li>$file (doesn't;look like a tar archive)</li>"