sub show {
    my $line = $_[0];