#!/usr/bin/perl -w

use strict;
use warnings;

my $file = $ARGV[0];
die "usage: arg1 must be a video file\n" unless $file;

sub trim 
{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
}

open (FILE, "ffmpeg -i \"$file\" 2>&1 |");
while (<FILE>)
{
	my $line = $_;
	next unless ($line =~ m/^\s+Stream #.+?: Video/);
	my @pieces = split (',', $line);
	my @vsize = split (' ', trim ($pieces[2]));
	my @vbits = split (' ', trim ($pieces[3]));
	my $video_size = trim (shift @vsize);
	my $video_bits = trim (shift @vbits);
	print "$video_size $video_bits\n";
	last;
}