#!/usr/bin/perl -w
$dir = "some_dir";
$file = "$dir/some_file");

GetOptions (
 "f=s" => $file,
);