#!/usr/bin/perl

use strict;
use warnings;

package String;

sub new {
  my ($class, $data) = @_;
  bless \$data, $class
}

sub println {
  print "${shift()}\n";
}

package main;

my $msg = new String("Hello World!");
$msg->println();