my ($filename, $filemode, $opmode, $filetype) = 
    ("/path/file", "immolate", "seek", "image/gif");