open Fpod, $filename or die "Can't read $filename: $!";
local $/;
my $filepod = <Fpod>;
close Fpod;

my $contents = $filepod;