#!/usr/bin/perl -w #use strict; our $hometown = "rajkot"; our $state = "gujarat"; print "Main hometown : $hometown\n"; print "Main state : $state\n"; package dushyant; print "dushyant first hometown : $hometown\n"; print "dushyant first state : $state\n"; print "dushyant main hometown : $main::hometown\n"; print "dushyant main state : $main::state\n"; package parmar; our $hometown = "parmar_rajkot"; our $state = "parmar_gujarat"; print "parmar hometown : $hometown\n"; print "parmar state : $state\n"; print "parmar main hometown : $main::hometown\n"; print "parmar main state : $main::state\n"; package suresh; print "suresh hometown : $hometown\n"; print "suresh state : $state\n"; print "suresh main hometown : $main::hometown\n"; print "suresh main state : $main::state\n"; package main; print "Main hometown : $hometown\n"; print "Main state : $state\n"; #### Main hometown : rajkot Main state : gujarat dushyant first hometown : rajkot dushyant first state : gujarat dushyant main hometown : rajkot dushyant main state : gujarat parmar hometown : parmar_rajkot parmar state : parmar_gujarat parmar main hometown : rajkot parmar main state : gujarat suresh hometown : parmar_rajkot suresh state : parmar_gujarat suresh main hometown : rajkot suresh main state : gujarat Main hometown : parmar_rajkot Main state : parmar_gujarat