# code-block-pro/1.27.2/build/shiki/samples/perl.sample

Code Block Pro – Beautiful Syntax Highlighting, version 1.27.2. 25 lines.

- Page: https://pluginprobe.com/plugins/code-block-pro/1.27.2/code/build/shiki/samples/perl.sample
- Raw: https://pluginprobe.com/plugins/code-block-pro/1.27.2/raw/build/shiki/samples/perl.sample
- Modified: 2023-09-03T01:04:34+00:00

Line numbers below start at 1. Link to a line or a range by appending a fragment to the
page URL, for example `https://pluginprobe.com/plugins/code-block-pro/1.27.2/code/build/shiki/samples/perl.sample#L10-L20`.

```
#!/usr/bin/perl
use strict;
use warnings;

# first, create your message
use Email::MIME;
my $message = Email::MIME->create(
  header_str => [
    From    => 'you@example.com',
    To      => 'friend@example.com',
    Subject => 'Happy birthday!',
  ],
  attributes => {
    encoding => 'quoted-printable',
    charset  => 'ISO-8859-1',
  },
  body_str => "Happy birthday to you!\n",
);

# send the message
use Email::Sender::Simple qw(sendmail);
sendmail($message);

# From https://learn.perl.org/examples/email.html

```