my $test = make_path( '' , { error => \my $err } );

if ( $err && @$err ) 
{
	for my $diag ( @$err ) 
	{
		my ( $file, $message ) = %$diag;
		
		if ( $file eq '' ) 
		{
			print "general error: $message\n";
		
		} else {
                   print "problem unlinking $file: $message\n";
               }
     }
  
} else {
		   print "No error encountered\n";
	   }