#!/usr/local/bin/perl

open(LS, "ls -1 *.mp4|");

while(<LS>) {
    chomp;
    system("qt-faststart $_ temp.mp4 && mv temp.mp4 $_");
}