#!/usr/bin/perl

use strict;

use warnings;

use Expression;


my $expression_file = "data/all-aml-dataset.txt";

my $expression_data = read($expression_file);

print("Read ", get_num_genes($expression_data), " genes and ",
      get_num_samples($expression_data), " samples.\n");
