X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=off;h=4633a3a35dd40968a14e4c88ec3cf43719237555;hb=aa0cd8d4eead4039d4a02d1949a43d63b8d05bdc;hp=c0f018eb542eca60401dad7ad0d41b872af2859e;hpb=182562fe5e01b0e24a6efdf3700a5d17c4585b7b;p=www-offliberty.git

diff --git a/off b/off
index c0f018e..4633a3a 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__
 
@@ -25,7 +25,11 @@ off - Offliberate this
 
 =head1 DESCRIPTION
 
-off is a command-line interface to the offliberty.com download service. It prints a list of download URLs for a given resource (e.g. a youtube video). You can also send parameters using the C<--param> argument.
+off is a command-line interface to the offliberty.com download
+service. It prints a list of download URLs for a given resource (e.g.
+a youtube video). You can also send parameters using the C<--param>
+argument. See the L<WWW::Offliberty> documentation for more
+information about parameters.
 
 =head1 SEE ALSO
 
@@ -37,7 +41,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2013 by Marius Gavrilescu
+Copyright (C) 2013-2015 by Marius Gavrilescu
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.18.1 or,