我正在尝试编写一个Perl脚本来执行git操作。我在运行它的时候在脚本中得到错误，它似乎是与git克隆行。任何帮助都很感激。

#!/usr/bin/perl

use strict;
use warnings;

my $url = "git\@devbitbucket.ethos.com:7999";

print "What is the project asset code? ";
chomp(my $projectcode = <> );
print "$projectcode\n";

print "What is the repository name? ";
chomp(my $reponame = <> );
print "$reponame\n";

chdir "cd /export/appl/bbdev/scripts/files/";
chdir;
print "git clone ssh://$url/$projectcode/$reponame.git\n";
system( 'git clone ssh://$url/$projectcode/$reponame.git $reponame' );
#$reponame =~ s/\..*//s;

chdir "cd $reponame";
chdir;
system( 'cp -p /export/appl/bbdev/scripts/files/* .' );
system( 'git status' );
system( 'git add -A && git commit -m "Default Repository Initial Files" ');
system( 'git push --all' );
system( 'git status' );

exit 0;

错误

git clone ssh://git@devbitbucket.ethos.com:7999/mikt/test2.git
fatal: No directory name could be guessed.
Please specify a directory on the command line
fatal: not a git repository (or any parent up to mount point /appl)
Stopping at filesystem boundary (GIT_DISCOVERY_ACROSS_FILESYSTEM not set).