#!/usr/bin/perl

use strict;
use warnings;

{
    local $/ = 'Foo';

    my $obj = SomePackage->new;
};

package SomePackage;

sub new {
    my ($class) = shift;

    print "Whats the separator?: $/ :\n"; 
    return bless {} , $class;
};