#!/usr/bin/perl -w

use strict;

my $localvar;
my $subvar = 10;
my $var1 = "foo";

#Check if a variable has been given a value

if( defined($localvar) ) {
  print "localvar == $localvar \n";
} else {
  $localvar = 1;
}

if( $localvar == 1 ) {
  
  my $ifvar = 50;    # declare a variable in a sub block
  #$var2 = 10;  
  $ifvar = 2 * $ifvar;
  print "ifvar = $ifvar\n";
  
}

# the next line won't work because $ifvar was declared in the if block
#print "ifvar = $ifvar\n";

dosomething($subvar, $subvar + 10);

# Will the next line work?
#print "arg1 = $arg1\n";



sub dosomething {
  my($arg1, $arg2) = @_;
  $var1 = "a string";  # we can change a global variable

  print "Inside dosomething\n";
  print "Trying to print localvar $localvar\n";
  print "Parameters to dosomething are $arg1 and $arg2\n";
  print "Print var1 = $var1\n";
}