my $desired = 100;
my $overhead = 12.70;

print "You need to charge: ", $desired + $overhead, "\n";