perl -e 'print "
",`ls *jpg *png *gif`,"
"'