use strict;
use Getopt::Std;

our $opt_v;
print join(':',@ARGV), "\n";
getopt('v');

##</code><code>##

$ myscript.pl -v < data.txt
-v
opt_v =