[frink@truth]$perl -e 'print map $_ .= "\n" , glob("~frink/tmp/*");'       
/home/frink/tmp/137-03.mp3
/home/frink/tmp/156-03.mp3
/home/frink/tmp/2004-01.pdf
/home/frink/tmp/2004-01.xls
/home/frink/tmp/audio
[frink@truth]$