#! /usr/bin/perl
$drvSwift= "G:/directoryname/Swift";
open (IN,"<$drvSwift/filename") or die "can't open the file: $!\n";