RosettaCodeData/Task/Use-another-language-to-call-a-function/Perl-6/use-another-language-to-call-a-function-1.pl6

#!/usr/bin/env perl6

sub MAIN (Int :l(:len(:$length))) {
   my Str $String = "Here am I";
   $*OUT.print: $String if $String.codes ≤ $length
}