bin/mplayer.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 'lib';
   7 use Audio::Play::MPlayer;
   8
   9 my $movie = shift @ARGV || die "usage: $0 path/to/movie.ogv\n";
  10
  11 my $player = Audio::Play::MPlayer->new;
  12 $player->load( $movie );
  13 print "$movie ", -s $movie, " bytes ", $player->title, "\n";
  14 $player->poll( 1 ) until $player->state == 0;
  15