Select Code to Download

#!/usr/bin/perl -w
#
#
...
    $price = $1 . "." . "00";
}
print "$price\n";

if (defined $2 ) {
    $price = $1 . "." . $2;
}
else {
    $price = $1 . "." . "00";
}