off

   1 #!/usr/bin/perl -w
   2 use v5.14;
   3
   4 use Getopt::Long qw/GetOptions/;
   5 use WWW::Offliberty qw/off/;
   6
   7 my %params;
   8 $, = "\n";
   9 GetOptions ('param=s' => \%params);
  10 say off shift, %params;
  11
  12 __END__
  13
  14 =encoding utf-8
  15
  16 =head1 NAME
  17
  18 off - Offliberate this
  19
  20 =head1 SYNOPSIS
  21
  22   off 'http://vimeo.com/whatever'
  23   off --param video_file=1 'http://youtube.com/watch?v=something'
  24   off --param param1=value1 --param param2=value2 link_to_offliberate
  25
  26 =head1 DESCRIPTION
  27
  28 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.
  29
  30 =head1 SEE ALSO
  31
  32 L<WWW::Offliberty>, L<http://offliberty.com>
  33
  34 =head1 AUTHOR
  35
  36 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  37
  38 =head1 COPYRIGHT AND LICENSE
  39
  40 Copyright (C) 2013 by Marius Gavrilescu
  41
  42 This library is free software; you can redistribute it and/or modify
  43 it under the same terms as Perl itself, either Perl version 5.18.1 or,
  44 at your option, any later version of Perl 5 you may have available.
  45
  46
  47 =cut