MVC Development

Bad architectures for web design (part two)

#!/usr/bin/perl
use strict; use CGI; use MyAccount;
my $query = CGI->new;
print $query->header;

my $account = MyAccount->new($ENV{'REMOTE_USER');

print <<EOF;
<html>
<body>
Your account balance is: $account
</body>
</html>
EOF