Select Code to Download

package mytest;

sub new {
    my $class = shift;
...
    bless $self,$class;
    return $self;
}

$dom = "skamphausen.de";   ##   May The Open Source Be With You!
$Mail = "mail@$dom;  $Url = "http://www.$dom";