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