perl_of_oop

#!/usr/bin/perl

package class;
    use 5.010;

    # Constructor
    sub new {
        my $self = shift;
        return bless {}, $self;
    }

    sub process {
        my ($self, $val) = @_;
        say $val;
    }
1;

package main;

my $feed = class->new();

$val = 'hogehoge';
$feed->process($val);