#!/usr/bin/perl

$arg=$ENV{'QUERY_STRING'};

if($arg eq "sl_ff") {$id="sales\@bucinacorp.com?subject=[FF_Sales] - "};
if($arg eq "in_ff") {$id="info\@fileforums.com?subject=[FF] - "};
if($arg eq "wm_ff") {$id="webmaster\@fileforums.com?subject=[FF] - "};

print "Location: mailto:$id\n\n";