#!/usr/bin/perl

$filename = $ARGV[0];  # filename passed on commandline
$size = (-s $filename) * 8 / 128000 / 60;
($min,$sec) = (int($size/60), $size % 60);
printf "$filename is %d:%02d long\n", $min, $sec;