Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub call{
        print "called!\n";
}

sub set_timer($$;)
{
...

    return $self;
}