#!/usr/local/bin/perl
#
#       Zone forecasts for counties.
#
#       This script generates forecast files
#       for a particular county in the directory
#
#       Written by: Naga S
#       Date: 05-24-06
#
use File::Copy;
use Tie::File;


$source_file = "/d2-agwx/webhome/wwwagwx/docs/severeKentucky/severe_weather_ky_central.html.bak";
$dest_file = "/d2-agwx/webhome/wwwagwx/docs/$ARGV[0]"."BAK";

#open(SRC,"$source_file") || die "ERROR: could not find $source_file: $!\n";
#open(DES,">/d2-agwx/webhome/wwwagwx/docs/$dest_file")|| die "ERROR: could not find $dest_file: $!\n";

copy($source_file,$dest_file);
print "destination file is $dest_file\n Source file is $source_file\n";

tie @array,'Tie::File',$dest_file or die "Tie command failed...";
print $array[105];
while(@array)
{
	
		s/cwa=lmk/cwa=jkl/;
		
	
}

untie @array;
