use strict;
use warnings;
use LangString;

my $s1= new LangString { 
   English => "Error opening directory", 
   Spanish => "Error abriendo directorio" };

print "My string is $s1\n";
$LangString::Language= 'Spanish';
print "My string is $s1\n";

##</code><code>##

use strict;
use warnings;
package LangString;

our $Language= 'English';

use overload  '""' => \&string;

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

sub string {
   my $self= shift;
   return $$self{$Language};
   }

1;