--- stich.pl	2007/10/15 21:21:48	3
+++ stich.pl	2007/10/15 21:57:50	4
@@ -95,7 +95,7 @@
 
 print "final map size: $x_size x $y_size from $x_tiles x $y_tiles tiles\n";
 
-my $map = Imager->new( xsize => $x_size, ysize => $y_size );
+my $map = Imager->new( xsize => $x_size, ysize => $y_size ) or $img->errstr();
 
 foreach my $tile_file ( @files ) {
 	$img->read( file => "$path/$tile_file" ) or die $img->errstr();
@@ -113,4 +113,8 @@
 	);
 }
 
-$map->write( file => 'dump.png' ) or die $img->errstr();
+$path =~ s/\W+/_/g;
+$path =~ s/^_+//;
+$path =~ s/_+$//;
+
+$map->write( file => "$path.png" ) or die $img->errstr();