Re^2: How to use PERL get the properties of a Flash file

Tested.

my $info = ImageInfo($qfn);
die "..." if exists($info->{Error});
die "..." if !exists($info->{ImageSize});
my ($x, $y) = $info->{ImageSize} =~ /^(\d+)x(\d+)\z/
   or die "...";
[download]

Comment on Re^2: How to use PERL get the properties of a Flash file Download Code