#!/usr/bin/perl

use strict;

die if @ARGV != 3;
unless(($ARGV[1] and $ARGV[2]) =~ /(\d+?\:\d+?\:\d)/) { die }

my($videoname,$from,$to) = @ARGV;

my $prog = "ffmpeg -i $videoname -ss $from.000 -to $to.000 -c:v libvpx -crf 15 -b:v 1500K -vf scale=640:-1 $videoname.webm";

system($prog);