#!/bin/sh
perl -e '@files=`ls -1`;print "@files[int(rand($#files))]\n";'