#untested
my $prompt = "my_unique_custom_prompt_aint_it_neat>";
$object->send("export PS1=$prompt\r");
$object->expect(10, $prompt);
$object->send("cat file.txt\r");
$object->expect(10, $header);
$object->expect(120, $prompt);

my $contents = $object->before();