LINE: while (defined($_ = )) { use warnings; use strict 'refs'; our($opt_h, $opt_k, $opt_u); my($inline, $device, $config, $file, $context, @contexts); use Getopt::Long; &help unless GetOptions 'h', \$opt_h, 'u:s', \$opt_u, 'k:s', \$opt_k, 'device:s', \$device; &help if $opt_h; etc. continue { print $_; }