Select Code to Download

my $w = 5;
my $p = 3;
my $s = "abcdefg";
printf "<%*.*s>", $w,$p,$s;

my $w = 5;
my $p = 3;
my $s = "abcdefg"; 
printf "<%$w.${p}s>\n", $s;