#!/usr/bin/perl my $a = 35; print $a, "\n";