use scaled image instead of original

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index b050711..a92bda0 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -176,8 +176,7 @@ sub html5tv {
                                $file =~ s{^.+/(p\d+\.\w)}{$path/$1};
 
                                my $im = Imager->new( file => $hires );
-                               $im->scale( xpixels => $w, ypixels => $h, type => 'min' );
-                               $im->write( file => $file );
+                               $im->scale( xpixels => $w, ypixels => $h, type => 'min' )->write( file => $file );
                                warn "resized $file ", -s $file, " bytes\n";
                        }
                }