#!/bin/perl

while ($file = shift){
	$str = `ls -l $file`;
	@fields = split (' ',$str);
	print "update image_path set size = $fields[4] where filename = $fields[-1]\n";
}