borris)cat getopt.pl

#!usr/bin/perl -w

use Getopt::Long;
use strict;

GetOptions( "refresh=i", \ (my $refresh = 10 ) );

print "refresh = $refresh\n";

borris)perl getopt.pl
refresh = 10
borris)perl getopt.pl -refresh 5
refresh = 5