Ack! Please don't do this. I have to work with this kind of syntax on a daily basis and it really isn't nice, considering there are so much more cleaner ways of doing this. This is Perl, after all ;)
my $path = shift or die "No path passed to GetInfDataFiles\n"