#! /usr/bin/perl

use warnings;

use strict;

 

print "Programmer: Serafim Kotsogiannis & Kwai Choi", "\n";

print "Course : SOSC146, Summer 2012", "\n";

print "Lab# : 2, part #2", "\n";

print "Due date : 5-15-2012", "\n\n";

 

 

 

#Ask for base price of a car

my ($value,) ;


print "Enter the base price of a car: ";

chomp ($value = <STDIN>);
print "            ", "\n";
 
$a = $value * 0.06;
$b = $value * 0.005;
my $total = $a + $b + $value + 700.00 + 200.00 + 50.00;


sub roundup {
    my $n = shift;
    return(($n == int($n)) ? $n : int($n + 1))
}


 

print "Vehicle Base Price........................ $value", "\n";

print "Destination Charge........................ 700.00", "\n";

print "Documentation............................. 200.00", "\n";

print "Prep......................................50.00", "\n";

print "License Plate.............................$b", "\n";

print "Tax........................................$a", "\n";