Select Code to Download

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

my ($filemode) = ("immolate"); # list context

my $filemode = "immolate"; # scalar context

my $count = @_; # get the length

my ($count) = @_; # get the first arg