#!/usr/bin/perl use strict; use warnings; use lib './lib'; use Getopt::Long qw(:config gnu_getopt); our $opt_file; GetOptions('file|f=s') or die('usage...'); print "file: $opt_file\n";