$fname = $ARGV[0];

@paragraphs = AnalyzeText (ReadFile ("test.txt"));