sub error {
 
$text = @_[0];

print "<font size=5 color=#00FF00><b>";
print "Error: <br>";
print "<font color=#ff0000>";
print $text;
print "</font>";
print "</font>";
print "<br>";
print "Hit the BACK button to continue";
 
}
1;