Select Code to Download

  sub isFile {
      my $self = shift if ref $_[0] && ref $_[0] eq $_[0]->{class};
      my $file = shift;   # a file in current directory expected

  sub isFile {
      my $self = shift if ref $_[0];
      my $file = shift;