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

package foo;

sub new { bless {} }

sub bar {
        my $self = shift;
        $self->{main} = "Hallo Welt";
        $self->{reverse} = reverse("Hallo Welt");
        print $self->{main} . "\n";
        print $self->{reverse} . "\n";
}

package main;

my $hallo = foo->new();
$hallo->bar();