my $path = './'; die "The file $base_file does not exist!\n" if (!-f $base_file);