Select Code to Download

use v5.40;             # strict, warnings, many features
use Moo;               # lightweight object system
...
    $log->error($e);
  }
}

sub foo {
    my $x= <<~END
    <-This is the start of the line
    END
}