#!/usr/bin/env perl 
use strict;
use warnings;

for my $i (0 .. 9) {
    my $j = $i + 1;
    print "Input $i.mpg, output $j.mpg\n";
}