Select Code to Download

my $vendor - shift @ARGV;
my $price_file = shift @ARGV;

print "Item $item_number is formatted like $description\n",
  "Is this okay? (Y/N): ";
my $ok_description = <STDIN>;
chomp($ok_description)l
ok($ok_description =~ /^Y/, 'Description looks okay');