package FOO;
use strict;
use warnings;

sub foo {
  my $str = shift;
  return $str if $str =~ /^ssh\@github-/;
}
1;

__END__


=head1 NAME

Foo - The great Foo module