package Better;

sub saveBetter {
   my ($sbn, $cost, $ur) = @_;

   print "sbn:  $sbn\n";
   print "cost: $cost\n";
   print "url:  $url\n";
   return;
}

1;


##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;
use threads;
use Better;

my $sbn = "123489876";
my $lee = "12.89";
my $abc = "abcde";

my @ParamList = ($sbn, $lee, $abc);

my $thr = threads->create(Better::saveBetter, @ParamList);

$thr->join();


##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;
use threads;
use Better;

my $sbn = "123489876";
my $lee = "12.89";
my $abc = "abcde";

my $thr = threads->create(Better::saveBetter, $sbn, $lee, $abc);

$thr->join();