Select Code to Download

package Pseudo::Tie::Scalar::Handle;
use strict;
...
my $pseudo_string = Pseudo::Tie::Scalar::Handle->new('/test.txt');

print "\nnot-working: ",substr $pseudo_string, 0, 43;