-#!/usr/bin/perl -w
-use v5.14;
+#!/usr/bin/perl
+use 5.008009;
+use strict;
+use warnings;
use Getopt::Long qw/GetOptions/;
use WWW::Offliberty qw/off/;
-my %params;
-$, = "\n";
-GetOptions ('param=s' => \%params);
-say off shift, %params;
+GetOptions ('param=s' => \my %params);
+print "$_\n" for off shift, %params;
__END__