Select Code to Download

cat test2.pl
#!/usr/bin/perl

...
}

1; # need to end with a true value

me@UbuntuMachine: ./test2.pl 
Use of uninitialized value in concatenation (.) or string at ./test2.p
+l line 14.
decimal places: 
...
decimal places: 0
decimal places: 3
done