Select Code to Download

<my first code ever>
#!/usr/bin/perl
...
$smtp->dataend();
$smtp->quit;
</my first code ever>

-><-