my $input = "c:/Backups/UCSRSQL01/sortedREFDATAList.txt";

open(INPUT, $input) ;

my $zipfile = <INPUT> ;
my $path = "C:/Backups/UCSRSQL01";

$zipcommand = `"c:/program files/winzip/wzzip" $path/refdatabak.zip $path/$zipfile`;