#!/usr/bin/perl -w

use warnings;
use diagnostics;
use FileHandle;
use File::Copy;

# Set simulation parameters and directories
@test_dates = ("20110414");
$listfile = "file_list.txt";
$execname = "/path/program";

foreach $date (@test_dates)
{
	# Set/make directories
	$obs_file_dir = "inpath";
	$pred_file_dir = "outpath";
	mkdir "$pred_file_dir", 0755 unless -d "$pred_file_dir";

	# Read input file names to array
	$obs_file_list = $obs_file_dir . $listfile;
	open(DIR, $obs_file_list) or die "Could not open file!";
	@obs_files = <DIR>;
	close(DIR);

	# Convert and save files
	foreach $file (@obs_files)
	{	
		$file =~ s/(\*)//g;
		$infile = $obs_file_dir . $file;
		$outfile = $pred_file_dir . $file;
		$outfile =~ s/nid/cdf/g;
        print $infile . "\n";
		@arg_list = ($execname, $infile, $outfile);
		system(@arg_list);
	}
}