Select Code to Download

Sub pushbutton()
    arg = Range("A1").Value
    cmd = "cmd /k perl -le ""print @ARGV"" " & arg
    Call Shell(cmd)
End Sub