#!/usr/bin/perl

use strict;
use warnings;

my $foo = Inline::Foo->new('Hello, world!');
$foo->display;


package Inline::Foo;

sub new {
  my $class = shift;
  return bless { text => shift }, $class;
}

sub display {
  my $text = $_[0]->{text};
  print "$text\n";
}