String Perl

#!usr/bin/perl
use warnings;
use strict;
my $product = "product";
my $price = 39;
my $line = sprintf "The %s costs \$%d\n.", $product, $price;
print $line;