X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=off;h=c4183c0f4b6d617aec86d2965ffeb0a1cff5b515;hb=a0765f3d8bfd38d11622a3e166dcd74fb377c7c7;hp=c0f018eb542eca60401dad7ad0d41b872af2859e;hpb=c73fe05dc69a5e96357b5a0639b3a4ae01395baa;p=www-offliberty.git diff --git a/off b/off index c0f018e..c4183c0 100755 --- a/off +++ b/off @@ -1,13 +1,13 @@ -#!/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__