#!/usr/bin/perl -w
use strict;
my $index = @ARGV ? $ARGV[0]:1;
STUDY: 
for (my @files=(glob "$ENV{HOME}/$ENV{SANDBOX}/examples/*")){
print "$files[$index] \n";
open (SCRIPT,"< $files[$index]") 
  or warn "can't open file: $!";
    print while <SCRIPT>;
    do $files[$index];
    print "type [N]EXT to continue browsing examples,
      or another key to repeat the snippet__  "; 
    redo STUDY unless <> =~ /^[Nn]/;
    $index++;
}