#!perl
use strict;
my $dir=shift || die "no image dir";
my $viewcmd=qq|rundll32.exe C:\\WINDOWS\\System32\\Shimgvw.dll,ImageView_Fullscreen|;
opendir(DIR,$dir) || die "Error opening $dir\: $!";
my @files=grep(/\w/,readdir(DIR));
close(DIR);

foreach my $file (@files){
	my $absfile="$dir\\$file";
	next if $absfile!~/\.(jpg|gif|bmp)$/is;
	my $syscmd=qq|start $viewcmd $absfile|;
	print "$syscmd\n";
	system($syscmd);
	select(undef,undef,undef,.5);
	}