sub get_file_data {
    my($filename) = @_;
    # Initialize variables
    my @filedata = (  );
    unless( open(GET_FILE_DATA, $filename) ) {
        print STDERR "Cannot open file \"$filename\"\n\n";
        exit;
    }
    @filedata = <GET_FILE_DATA>;
    close GET_FILE_DATA;
    return @filedata;
}

sub get_files {
  my($folder) = @_;
  my @files = ();

  unless(opendir(FOLDER, $folder)){
    print "Can't open folder\n";
    exit;
  }

  @files = grep(!/^\.\.?$/, readdir(FOLDER));
  closedir(FOLDER);
  return @files;
}


1;