Hi I am actually doing a script to unzip .gz files .The script is given below

use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
$input="file.dat.gz";
$output="file.dat";
 if (-e $input)
       {
        gunzip $input => $output
        or die "gunzip failed: $GunzipError for $output\n";
        }
[download]

This will work if the input and code are in same location.My requirement is my script should be in "C" drive and input should be in D drive.Can anyone help ?