no warnings;
use NotMy::Module qw< setsomestring >;

my $input= <STDIN>;
setsomestring( $input );