# 1.gif 206725 Byte
# 2.gif 7795 Byte

open(FILE, "db.sav");
    binmode(FILE);
    seek(FILE, 206725, 0);
    read(FILE, $Data, 7795);
close(FILE);

print "Content-type: image/gif\n\n";
open(FILE, "> 123.gif");
    binmode(FILE);
    print FILE $Data;
close(FILE);