use Modern::Perl '2013'; 
use lib '../shared'; # Shared 
use Time::Piece; 
use GetWeb; 
 
main(); 
 
sub main 
{ 
	my %hashedPrices; 
 
	my @stockList = ("C","FB","DELL"); 
	 
	 %hashedPrices = GetWeb::YahooQuotes(\@stockList); 
	for my $market (sort keys %hashedPrices) 
	{ 
		my $LastTrade = $hashedPrices{$market}; 
		print "$market -> $LastTrade\n"; 
	} 
	 
	%hashedPrices = GetWeb::YahooHistory("C"); 
	for my $tradeDate (sort keys %hashedPrices) 
	{ 
		my $LastTrade = $hashedPrices{$tradeDate }; 
		print "$tradeDate -> $LastTrade\n"; 
	} 
	subtest(); 
}

use Modern::Perl '2013'; 
 
sub subtest 
{ 
	print "Hello\n"; 
}

do 'subtest.pl';

package pack_subtest; 
use Modern::Perl '2013';  
 
use Exporter qw(import); 
our @EXPORT=qw /subtest/; 
 
sub subtest  
{  
	print "Hello\n";  
} 
1;

use pack_subtest;

do 'subtest.pl';

package PackSubtest;

our @EXPORT_OK = qw/subtest/;

use PackSubtest qw(subtest);

  V [Pk [Vars]]  List Variables in Package.  Vars can be ~pattern or !pattern. 
  X [Vars]       Same as "V current_package [Vars]".  i class inheritance tree. 
  y [n [Vars]]   List lexicals in higher scope <n>.  Vars same as V. 
  e     Display thread id     E Display all thread ids. 
For more help, type h cmd_letter, or run man perldebug for all docs. 
  DB<1> h 
List/search source lines:               Control script execution: 
  l [ln|sub]  List source code            T           Stack trace 
  - or .      List previous/current line  s [expr]    Single step [in expr] 
  v [line]    View around line            n [expr]    Next, steps over subs 
  f filename  View source in file         <CR/Enter>  Repeat last n or s 
  /pattern/ ?patt?   Search forw/backw    r           Return from subroutine 
  M           Show module versions        c [ln|sub]  Continue until position 
Debugger controls:                        L           List break/watch/actions 
  o [..]     Set debugger options        t [expr]    Toggle trace [trace expr] 
  <[<]|{[{]|>[>] [cmd] Do pre/post-prompt b [ln|event|sub] [cnd] Set breakpoint 
  ! [N|pat]   Redo a previous command     B ln|*      Delete a/all breakpoints 
  H [-num]    Display last num commands   a [ln] cmd  Do cmd before line 
  = [a val]   Define/list an alias        A ln|*      Delete a/all actions 
  h [db_cmd]  Get help on command         w expr      Add a watch expression 
  h h         Complete help page          W expr|*    Delete a/all watch exprs 
  |[|]db_cmd  Send output to pager        ![!] syscmd Run cmd in a subprocess 
  q or ^D     Quit                        R           Attempt a restart 
Data Examination:     expr     Execute perl code, also see: s,n,t expr 
  x|m expr       Evals expr in list context, dumps the result or lists methods. 
  p expr         Print expression (uses script's current package). 
  S [[!]pat]     List subroutine names [not] matching pattern 
  V [Pk [Vars]]  List Variables in Package.  Vars can be ~pattern or !pattern. 
  X [Vars]       Same as "V current_package [Vars]".  i class inheritance tree. 
  y [n [Vars]]   List lexicals in higher scope <n>.  Vars same as V. 
  e     Display thread id     E Display all thread ids. 
For more help, type h cmd_letter, or run man perldebug for all docs.