do 'mailcap-lib.pl'; sub cgi_args { my ($cgi) = @_; if ($cgi eq 'edit.cgi') { my @mailcap = &list_mailcap(); return @mailcap ? 'index='.$mailcap[0]->{'index'} : 'new=1'; } return undef; }