perl -wle 'print $^W*2**$^W*2'