#!/usr/bin/perl -w

#for ($i=1; $i<118; $i++) {
  $filename = sprintf("out_WTF.mpg\n");
  print "plaympeg ".$filename;
  `plaympeg --double --fullscreen $filename`;
#} #end