$dir=$baseURL.$type."/";	# Reads the photos in master folder. Called 3 times via external loop
opendir my $dh, $dir or die "Could not open '$dir' for reading '$!'\n";
@pics = grep(/\.jpg$/,readdir $dh);
closedir $dh;
shift @pics;   ## Removes the dot files
shift @pics;
$tot=@pics;	

$img=Imager->new();   # create empty image
	for (my $p=0; $p<@pics; $p++){
	$img->read(file=>$baseURL.$type.'/'.$pics[$p],type=>'jpeg') or  die $img->errstr();
	my $med = $img->copy();
	my $thumb = $img->copy();
	$med = $img->scale(xpixels=>750);# sets width to 750px 
	$med->write(file=>$baseURL.$type.'/medium/'.$pics[$p]) or die $image->errstr; # Write out image
	$thumb = $img->scale(ypixels=>150);# sets the height to 150px
	$thumb->write(file=>$baseURL.$type.'/thumbs/'.$pics[$p]) or die $image->errstr; # Write out image
	my $rot90 = $img->rotate(degrees=>-90);
	$rot90->write(file=>$baseURL.$type.'/upright/'.$pics[$p]) or die $image->errstr; # Write out image
	my @pic=split(/\./,$pics[$p]); # splits filename at dot [filename][jpg]
	$newDat.=$pic[0].'|';		# Used in a latter part of program 
	}