Select Code to Download

@{ $self->{lines}} = split('~', $line);

sub new
{
...
    bless($self, $class);
    return $self;
}