my ($sbn, $cost, $ur) = @_;
#..................^^^

   print "url:  $url\n";
#..............^^^^