use strict;
use warnings;

package Str;
package main;
my Str $name = 'David';

print "Hello, my name is $name\n";