my ($text) = @_;