Select Code to Download

my $w = 3;
my $str = "abc";
my $line = sprintf "%${w}s ", $str; # still has an error

my $line = sprintf "%" . $w . "s ", $str;