my $data = get_file($jpg); my ($h,$v) = sizeJPG($data); print "$jpg width $h height $v\n";