That depends on whether the file will always be located at C:\Users\Admin\Desktop\Dist_Folder\InFile.csv, or whether the file will always be located in the same directory as the script. In the first case, you can just specify the full filename, e.g. my $file = "C:\\Users\\Admin\\Desktop\\Dist_Folder\\InFile.csv";

In the second case:

use File::Spec;
use FindBin;
my $file = File::Spec->catfile($FindBin::Bin, "InFile.csv");
[download]