#!/usr/bin/perl -w

use strict;

use module1 qw($str);

print $str;