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";