+#!/usr/bin/perl -T
#!/usr/bin/perl -Tw
use strict;
-use Getopt::Std;
use FS::SelfService qw(passwd);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$ENV{'ENV'} = '';
$ENV{'BASH_ENV'} = '';
-die "fs_passwd.cgi isn't running as freeside user\n" if $> != $freeside_uid;
+die "passwd.cgi isn't running as freeside user\n" if $> != $freeside_uid;
my $cgi = new CGI;