内置的没有，

但简单封装下就行

sub file_get_contents {
    my ($file) = @_;
    open FD, '<', $file;
    local $/;
    my $contents = <FD>;
    close FD;
    return $contents;
}