#!/usr/local/bin/perl use strict; use warnings; my($var1, $var2); $var1 = 9; $var2 = $var1++; print "$var1\n"; print "$var2\n";