#!/usr/bin/perl
print "What Shouls We Name It? ";
my $name = <STDIN>;
chomp($name);
print "Wheres It Going? ";
my $path = <STDIN>;
chomp($path);
print "File Type (jpg, gif, png, bmp)? ";
my $ext = <STDIN>;
chomp($ext);
exec "import -window root $path/$name.$ext\n";