#perl
use File::Slurp;
write_file ('filenameW', $ENV{OS} =~ /Windows/i ? `dir /b *.jpg` : `ls *.jpg` );