#!/usr/bin/perl -w 
use diagnostics;   
use strict;
sub getgoodfiles
{
@4by6 = glob(/* 4 by 6.tif\);
@screenres = glob(/* screen res.tif\);
@thumbnail = glob(/* thumbnail.jpg\);
sort @4by6;
sort @screenres;
sort @thumbnail;
}