sub print_prefix {
    local $/="\nPrefix: ";
    print @_;
}